
Partial Class Sobre
    Inherits System.Web.UI.Page

    Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        Dim sbBody As New StringBuilder

        sbBody.Append("Rementente: " & Me.txtAssunto.Text)
        sbBody.Append("<br>")
        sbBody.Append("Detalhes: ")
        sbBody.Append("<br>")
        sbBody.Append(Me.txtDetalhes.Text)

        Try
            SumarizadorEngine.Comunicacao.SendMail(sbBody.ToString, "julio.cesar.alves@gmail.com", "Contato via Sumarizador")
        Catch ex As Exception
            lblResult.Text = ex.Message
        End Try

        lblResult.Text = "Sua mensagem foi enviada com sucesso."


    End Sub
End Class
